home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Joint 1.02.sit / Joint / Examples / Four-bar linkage / Four-bar.Exp < prev    next >
Text File  |  1995-10-25  |  1KB  |  81 lines
  1. #include "colors.inc"
  2. #include "shapes.inc"
  3. #include "textures.inc"
  4.  
  5. light_source {<-0.5,3,-3> color White} // Grundlichtquelle
  6.  
  7. camera {
  8.    location <1.4,6,-7.6>
  9.    direction<0,0,5>
  10.    look_at <0.7,0,0>
  11. }
  12.  
  13.  
  14.  
  15. #declare te1=texture{pigment {color Red} finish{phong 1 ambient 0.4}}
  16. #declare te2=texture{pigment {color Blue} finish{phong 1 ambient 0.4}}
  17. #declare te3=texture{pigment {color Yellow} finish{phong 1 ambient 0.4}}
  18. #declare te4=texture{pigment {color rgb <0.9,0,0.9>} finish{phong 1 ambient 0.4}}
  19.  
  20.  
  21.  
  22. #declare rc1=0.04
  23. #declare rc2=0.07
  24.  
  25. plane{
  26. -y, 0.3
  27. texture{pigment {color White} finish{phong 1 ambient 0.4}}
  28. }cylinder{
  29. <0,0,0>,<1,0,0>,rc1
  30. texture{te1}
  31. }
  32.  
  33. cylinder{
  34. <0,-0.05,0>,<0,0.225,0>,rc2
  35. texture{te1}
  36. }
  37.  
  38. cylinder{
  39. <1,0.075,0>,<1,-0.05,0>,rc2
  40. texture{te1}
  41. }cylinder{
  42. <0,0.45,0>,<0.23841,0.45,-0.76365>,rc1
  43. texture{te2}
  44. }
  45.  
  46. cylinder{
  47. <0,0.5,0>,<0,0.225,0>,rc2
  48. texture{te2}
  49. }
  50.  
  51. cylinder{
  52. <0.23841,0.5,-0.76365>,<0.23841,0.375,-0.76365>,rc2
  53. texture{te2}
  54. }cylinder{
  55. <0.23841,0.3,-0.76365>,<1.121,0.3,-0.58766>,rc1
  56. texture{te3}
  57. }
  58.  
  59. cylinder{
  60. <0.23841,0.375,-0.76365>,<0.23841,0.25,-0.76365>,rc2
  61. texture{te3}
  62. }
  63.  
  64. cylinder{
  65. <1.121,0.35,-0.58766>,<1.121,0.225,-0.58766>,rc2
  66. texture{te3}
  67. }cylinder{
  68. <1.121,0.15,-0.58766>,<1,0.15,0>,rc1
  69. texture{te4}
  70. }
  71.  
  72. cylinder{
  73. <1.121,0.225,-0.58766>,<1.121,0.1,-0.58766>,rc2
  74. texture{te4}
  75. }
  76.  
  77. cylinder{
  78. <1,0.2,0>,<1,0.075,0>,rc2
  79. texture{te4}
  80. }
  81.